home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet multimedia / Muzyka / Edytory sampli (probek dzwieku) / ZynAddSubFX_2.2.0 / Setup_ZynAddSubFX-2.2.0.exe / source code / Effects / EffectLFO.C < prev    next >
C/C++ Source or Header  |  2005-03-14  |  3KB  |  111 lines
  1. /*
  2.   ZynAddSubFX - a software synthesizer
  3.  
  4.   EffectLFO.C - Stereo LFO used by some effects
  5.   Copyright (C) 2002-2005 Nasca Octavian Paul
  6.   Author: Nasca Octavian Paul
  7.  
  8.   This program is free software; you can redistribute it and/or modify
  9.   it under the terms of version 2 of the GNU General Public License 
  10.   as published by the Free Software Foundation.
  11.  
  12.   This program is distributed in the hope that it will be useful,
  13.   but WITHOUT ANY WARRANTY; without even the implied warranty of
  14.   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15.   GNU General Public License (version 2) for more details.
  16.  
  17.   You should have received a copy of the GNU General Public License (version 2)
  18.   along with this program; if not, write to the Free Software Foundation,
  19.   Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
  20.  
  21. */
  22.  
  23. #include <stdlib.h>
  24. #include <stdio.h>
  25. #include <math.h>
  26.  
  27. #include "EffectLFO.h"
  28.  
  29.  
  30. EffectLFO::EffectLFO(){
  31.     xl=0.0;xr=0.0;
  32.     Pfreq=40;
  33.     Prandomness=0;
  34.     PLFOtype=0;
  35.     Pstereo=96;
  36.     
  37.     updateparams();
  38.  
  39.     ampl1=(1-lfornd)+lfornd*RND;
  40.     ampl2=(1-lfornd)+lfornd*RND;
  41.     ampr1=(1-lfornd)+lfornd*RND;
  42.     ampr2=(1-lfornd)+lfornd*RND;
  43. };
  44.  
  45. EffectLFO::~EffectLFO(){
  46. };
  47.  
  48.  
  49. /*
  50.  * Update the changed parameters
  51.  */
  52. void EffectLFO::updateparams(){
  53.     REALTYPE lfofreq=(pow(2,Pfreq/127.0*10.0)-1.0)*0.03;
  54.     incx=fabs(lfofreq)*(REALTYPE)SOUND_BUFFER_SIZE/(REALTYPE)SAMPLE_RATE;
  55.     if (incx>0.49999999) incx=0.499999999; //Limit the Frequency
  56.  
  57.     lfornd=Prandomness/127.0;
  58.     if (lfornd<0.0) lfornd=0.0; else if (lfornd>1.0) lfornd=1.0;
  59.  
  60.     if (PLFOtype>1) PLFOtype=1;//this has to be updated if more lfo's are added
  61.     lfotype=PLFOtype;
  62.  
  63.     xr=fmod(xl+(Pstereo-64.0)/127.0+1.0,1.0);
  64. };
  65.  
  66.  
  67. /*
  68.  * Compute the shape of the LFO
  69.  */
  70. REALTYPE EffectLFO::getlfoshape(REALTYPE x){
  71.     REALTYPE out;
  72.     switch (lfotype){
  73.     case 1: //EffectLFO_TRIANGLE
  74.         if ((x>0.0)&&(x<0.25)) out=4.0*x;
  75.         else if ((x>0.25)&&(x<0.75)) out=2-4*x;
  76.              else out=4.0*x-4.0;
  77.         break;
  78.     //more to be added here; also ::updateparams() need to be updated (to allow more lfotypes)
  79.     default:out=cos(x*2*PI);//EffectLFO_SINE
  80.     };
  81.     return(out);
  82. };
  83.  
  84. /*
  85.  * LFO output
  86.  */
  87. void EffectLFO::effectlfoout(REALTYPE *outl,REALTYPE *outr){
  88.     REALTYPE out;    
  89.     
  90.     out=getlfoshape(xl);
  91.     if ((lfotype==0)||(lfotype==1)) out*=(ampl1+xl*(ampl2-ampl1));
  92.     xl+=incx;
  93.     if (xl>1.0) {
  94.     xl-=1.0;
  95.     ampl1=ampl2;
  96.     ampl2=(1.0-lfornd)+lfornd*RND;
  97.     };
  98.     *outl=(out+1.0)*0.5;
  99.  
  100.     out=getlfoshape(xr);
  101.     if ((lfotype==0)||(lfotype==1)) out*=(ampr1+xr*(ampr2-ampr1));
  102.     xr+=incx;
  103.     if (xr>1.0) {
  104.     xr-=1.0;
  105.     ampr1=ampr2;
  106.     ampr2=(1.0-lfornd)+lfornd*RND;
  107.     };
  108.     *outr=(out+1.0)*0.5;
  109. };
  110.  
  111.